﻿Public Class MainForm


    Private Sub GetTabNamesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetTabNamesButton.Click
        Dim header As New IWebCF.IWebAuthenticationHeader()
        header.Encrypted = Me.chkEncrypted.Checked.ToString
        header.Password = Me.txtPassword.Text
        header.PortalID = Me.txtPortal.Text
        header.Username = Me.txtUsername.Text
        header.WebPageCall = "False"

        Dim client As New IWebCF.WebTabManagerClient()

        client.Endpoint.Address = New ServiceModel.EndpointAddress _
            (String.Format("{0}/DesktopModules/IWebCF/CoreService.svc/IWebTabManager", Me.txtWebsite.Text))

        Dim tabs As List(Of String) = client.GetTabNamesOnPortal(header)

        For Each t As String In tabs

            Me.TabsListBox.Items.Add(t)

        Next



    End Sub
End Class
